(defun test-fn ()
  (let ((component-storages (ecs::storage-component-storages *storage*)))
    (%with-coordinate-slots (xx yy) t component-storages 0
                            (setf xx 0.0))))
